perm filename XXX[C,JRA] blob sn#014379 filedate 1972-11-29 generic text, type T, neo UTF8

(DEFPROP FOO 
 (LAMBDA NIL
  (PROG (ZZ)
   A    (SETQ ZZ (PRINT (ERRSET (EVAL (READ)) T)))
	(COND ((EQUAL ZZ (QUOTE (END))) (RETURN NIL)))
	(GO A))) 
EXPR)